0 HI=24576:D1=32576:D2=33576:D0=0:POKE650,128:POKE649,1:POKE56,32
5 F1$=CHR$(133):F3$=CHR$(134):F5$=CHR$(135):F7$=CHR$(136)
7 F2$=CHR$(137):F4$=CHR$(138):F6$=CHR$(139):F8$=CHR$(140)
8 POKE53280,0:POKE53281,6:GOSUB5000:RESTORE
10 GETA$:IFA$="H"THEN100
20 IFA$="H"THEN100
30 IFA$="L"THEN1000
40 IFA$="S"THEN2000
50 IFA$="D"THEN1500
60 IFA$="E"THEN3000
65 IFA$="G"THEN9000
70 IFA$="M"THEN3500
75 IFA$="X"THEN7000
80 IFA$="C"THEN4000
85 IFA$="F"THEN6000
90 GOTO10
100 SYS49920
150 C=PEEK(1024):C1=CAND15:C2=INT(C/16)
160 C3=PEEK(55296)AND15:C4=PEEK(53281)AND15
200 GETA$:IFA$=F1$THEN300
210 IFA$=F1$THEN300
215 IFA$=F2$THEN340
220 IFA$=F3$THEN350
225 IFA$=F4$THEN390
230 IFA$=F5$THEN400
235 IFA$=F6$THEN440
240 IFA$=F7$THEN450
245 IFA$=F8$THEN490
249 IFA$=CHR$(13)THEN500
250 IFA$=CHR$(141)THEN510
290 GOTO200
300 C1=C1+1:IFC1>15THENC1=0
310 POKE2,C1+C2*16
320 SYS49334
330 GOTO200
340 C1=C1-1:IFC1<0THENC1=15
342 GOTO310
350 C2=C2+1:IFC2>15THENC2=0
360 GOTO310
390 C2=C2-1:IFC2<0THENC2=15
392 GOTO310
400 C3=C3+1:IFC3>15THENC3=0
410 POKE2,C3
420 SYS49353
430 GOTO200
440 C3=C3-1:IFC3<0THENC3=15
442 GOTO410
450 C4=C4+1:IFC4>15THENC4=0
460 POKE53281,C4
470 GOTO200
490 C4=C4-1:IFC4<0THENC4=15
492 POKE53281,C4
494 GOTO200
500 SYS49154
510 SYS49395
520 GOTO8
1000 NA$=""
1005 INPUT"[146][147][154]  ENTER NAME";NA$
1007 IFNA$=""THEN8
1010 K=LEN(LEFT$(NA$,16))
1020 POKE49419,K
1025 POKE49432,32
1030 FORI=1TOK
1040 POKE49436+I,ASC(MID$(NA$,I,1))
1050 NEXT
1055 SYS49920
1060 SYS49411
1062 GOTO4500
1500 PRINT"[147][146][154]":SYS49664
1505 GETA$:IFA$=""THEN1505
1590 GOTO8
2000 INPUT"[146][147][154]  ENTER LETTER";LE$
2010 LE$=(LEFT$(LE$,1))
2015 NA$=""
2020 INPUT"  ENTER NAME";NA$
2025 IFNA$=""THEN8
2030 NA$=LEFT$(NA$+"       ",8)
2040 FI$="[129]PIC "+LE$+" "+NA$
2050 K=LEN(FI$)
2060 POKE49462,K
2070 FORI=1TOK
2080 POKE49487+I,ASC(MID$(FI$,I,1))
2090 NEXTI
2092 FORI=0TO5
2094 READA
2096 POKE34577+I,A
2098 NEXTI
2099 DATA48,,,253,67,66
2100 OPEN1,8,15,"S:[129]PIC "+LE$+"*":CLOSE1
2105 SYS49456
2110 GOTO8
3000 SYS49920
3010 SYS49769
3020 GOTO4500
3500 PRINT"[146][147][154]  $2000 BIT-MAP"
3510 PA=2
3520 GETA$
3530 IFA$=CHR$(13)THEN3750
3540 IFA$=""THENPA=PA+2:IFPA>14THENPA=2
3550 IFA$="[145]"THENPA=PA-2:IFPA<2THENPA=14
3560 ON(PA/2)GOSUB3600,3605,3610,3615,3620,3625,3630
3570 GOTO3520
3600 PRINT"2":RETURN
3605 PRINT"4":RETURN
3610 PRINT"6":RETURN
3615 PRINT"8":RETURN
3620 PRINT"A":RETURN
3625 PRINT"C":RETURN
3630 PRINT"E":RETURN
3750 SYS49318:POKE2,33:SYS49334:POKE2,6:SYS49353:POKE53281,0
3755 FORI=0TO999:NEXT
3760 SYS49792,PA*4096
3780 GOTO4500
3999 END
4000 PRINT"[154][147]  COLOR (1[146]) OR (2[146])?"
4010 GETA$:IFA$<"1"ORA$>"2"THEN4010
4015 IFA$="1"THENPOKE49584,4
4017 IFA$="2"THENPOKE49584,216
4020 PRINT"  COLOR "A$:NA$=""
4030 INPUT"  ENTER NAME ";NA$
4032 IFNA$=""THEN8
4035 NA$=LEFT$(NA$,16)
4037 SYS49920
4040 OPEN1,8,2,NA$
4050 SYS49568
4100 CLOSE1
4102 GOTO4500
4500 POKE198,0
4505 GETA$
4510 IFA$=CHR$(13)THENSYS49154:SYS49395:GOTO8
4520 IFA$=CHR$(141)THENSYS49395:GOTO8
4530 GOTO4505
5000 SYS50432:POKE896,255:POKE725,255:SYS49520:RETURN
6000 SYS49920
6010 X1=0 :Y1=0
6020 X2=39:Y2=24
6025 CU=1
6030 VC=53248
6040 POKEVC+21,3
6050 POKE2040,14:POKE2041,11
6075 O1=X1*8+24:P1=Y1*8+50
6080 O2=X2*8+24:P2=Y2*8+50
6100 POKEVC,O1AND255:POKEVC+1,P1
6105 IFO1<=255THENPOKEVC+16,PEEK(VC+16)AND254
6107 IFO1>255THENPOKEVC+16,PEEK(VC+16)OR1
6110 POKEVC+2,O2AND255:POKEVC+3,P2
6115 IFO2<=255THENPOKEVC+16,PEEK(VC+16)AND253
6117 IFO2>255THENPOKEVC+16,PEEK(VC+16)OR2
6150 IFCU=2THEN6350
6250 GETA$
6260 IFA$="[145]"ANDY1>0THENY1=Y1-1:GOTO6075
6270 IFA$=""ANDY1<Y2THENY1=Y1+1:GOTO6075
6280 IFA$="[157]"ANDX1>0THENX1=X1-1:GOTO6075
6290 IFA$=""ANDX1<X2THENX1=X1+1:GOTO6075
6295 IFA$=" "THEN6345
6297 IFA$=CHR$(13)THEN6800
6299 IFA$=CHR$(141)THEN6810
6300 GOTO6250
6345 CU=2
6350 GETA$
6360 IFA$="[145]"ANDY2>Y1THENY2=Y2-1:GOTO6075
6370 IFA$=""ANDY2<24THENY2=Y2+1:GOTO6075
6380 IFA$="[157]"ANDX2>X1THENX2=X2-1:GOTO6075
6390 IFA$=""ANDX2<39THENX2=X2+1:GOTO6075
6395 IFA$=" "THEN6500
6397 IFA$=CHR$(13)THEN6800
6399 IFA$=CHR$(141)THEN6810
6400 GOTO6350
6500 C=PEEK(1024+X1+Y1*40)
6510 C1=CAND15:C2=(CAND240)/16
6520 C3=PEEK(55296+X1+Y1*40)AND15
6530 C4=PEEK(53281)AND15
6540 SYS50084, 1024,X1,Y1,X2,Y2,C1+C2*16
6550 SYS50084,55296,X1,Y1,X2,Y2,C3
6560 POKE53281,C4
6600 GETA$
6610 IFA$=F1$THEN6700
6615 IFA$=F2$THEN6710
6620 IFA$=F3$THEN6720
6625 IFA$=F4$THEN6730
6630 IFA$=F5$THEN6740
6635 IFA$=F6$THEN6750
6640 IFA$=F7$THEN6760
6645 IFA$=F8$THEN6770
6650 IFA$=" "THEN6010
6660 GOTO6600
6700 C1=C1+1:IFC1>15THENC1=0
6705 GOTO6540
6710 C1=C1-1:IFC1<0THENC1=15
6715 GOTO6540
6720 C2=C2+1:IFC2>15THENC2=0
6725 GOTO6540
6730 C2=C2-1:IFC2<0THENC2=15
6735 GOTO6540
6740 C3=C3+1:IFC3>15THENC3=0
6745 GOTO6540
6750 C3=C3-1:IFC3<0THENC3=15
6755 GOTO6540
6760 C4=C4+1:IFC4>15THENC4=0
6765 GOTO6540
6770 C4=C4-1:IFC4<0THENC4=15
6775 GOTO6540
6800 SYS49154
6810 SYS49395:POKEVC+21,0:GOTO8
7000 PRINT"[147][154]"
7015 PRINT" LOAD:
7020 [153]"<1> TO $6000
7030 PRINT"<2> TO ORIGIN
7040 [153]"<3> KOALA
7050 PRINT"<4> BLAZING PADDLES
7060 [153]"<5> PAINT MAGIC
7100 PRINT" SHOW:"
7110 PRINT"<0> ORIGIN
7120 [153]"<X> MENUE
7200 GETA$:IFA$="0"THEN8000
7220 IFA$="X"THEN8
7222 IFA$="4"THEN8300
7223 IFA$="5"THEN8400
7225 IFA$="1"THEN8200
7227 IFA$="3"THEN8200
7230 IFA$="2"THEN8100
7999 GOTO7200
8000 PRINT"[147][209]SHOW ORIGIN[209]
8005 NA$[178]""
8010 [133]"  ENTER NAME";NA$
8020 [139]NA$[178]""[167]7000
8030 [159]1,8,2,NA$
8040 [161]#1,A$,B$
8045 [139]ST[179][177]0[167][153]"  (null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)HUH?!(null)CMDCMDCMDCMDCMDCMDCMDMID$TANTANTANTANTAN(null)":[137]8090
8050 [139]A$[178]""[167]A$[178][199](0)
8060 [139]B$[178]""[167]B$[178][199](0)
8070 AD[178][198](A$)[170]256[172][198](B$)
8080 [153]"  ORIGIN:"AD
8090 [160]1
8092 [151]198,0:[146]198,1
8095 [137]7000
8100 [153]"LOAD(null)LOAD TO ORIGIN(null)
8105 NA$=""
8110 INPUT"  ENTER NAME";NA$
8120 IFNA$=""THEN7000
8130 SYS57812NA$,8,1:POKE780,0:SYS65493
8140 PRINT"  [213][192][192][192][192][192][201][157][157][157][157][157][157][157][221]READY[221][157][157][157][157][157][157][157][202][192][192][192][192][192][203]":GOTO8092
8200 PRINT"[147][209]LOAD TO $6000[209]
8205 NA$[178]""
8210 [133]"  ENTER NAME";NA$
8215 [139]NA$[178]""[167]8
8217 [139][200](NA$,1)[178]"TAN"[167]NA$[178]"FORPIC ? "[170][202](NA$,2,8)[170]"*"
8220 K[178][195]([200](NA$,16))
8230 [151]49419,K
8240 [151]49432,96
8250 [129]I[178]1[164]K
8260 [151]49436[170]I,[198]([202](NA$,I,1))
8270 [130]
8280 [158]49411
8282 [139]A$[178]"1"[167]8
8285 [158]49920
8290 [137]4500
8300 [153]"LOAD(null)LOAD BLAZING PADDLES(null)
8305 NA$=""
8310 INPUT"  ENTER NAME";NA$
8315 IFNA$=""THEN8
8320 K=LEN(LEFT$(NA$,16))
8330 POKE49419,K
8340 POKE49432,64
8350 FORI=1TOK
8360 POKE49436+I,ASC(MID$(NA$,I,1))
8370 NEXT
8380 SYS49411
8390 HI=16384:C1=24576:C2=25600
8395 GOTO9200
8400 PRINT"[147][209]LOAD PAINT MAGIC[209]
8405 NA$[178]""
8410 [133]"  ENTER NAME";NA$
8415 [139]NA$[178]""[167]8
8420 [158]57812NA$,8,1:[151]780,0:[158]65493
8500 [158]49318
8510 [158]49792,16384
8520 [151]49638,4
8530 [158]49616,24576
8540 [151]2,[194](24387)
8550 [158]49353
8560 [151]53281,[194](24388)
8590 [137]4500
9000 [153]"LOADCONT(null)GRAB PICTURE(null)
9010 PRINT" GRAB:"
9020 PRINT"<0>HIRES  :"HI
9030 PRINT"<1>COLOR 1:"D1
9040 PRINT"<2>COLOR 2:"D2
9045 PRINT"<3>BACK   :"D0
9060 PRINT" DO  :"
9070 PRINT"<G>PERFORM GRAB
9080 [153]"<X>SEE MENUE
9100 GETA$:IFA$=""THEN9100
9110 IFA$="X"THEN8
9120 IFA$="G"THEN9200
9130 IFA$="0"THEN9300
9140 IFA$="1"THEN9400
9145 IFA$="2"THEN9500
9150 IFA$="3"THEN9600
9190 GOTO9100
9200 SYS49318
9210 SYS49792,HI
9220 POKE49638,4
9230 SYS49616,D1
9240 POKE49638,216
9250 SYS49616,D2
9255 POKE53281,D0
9260 GOTO4500
9300 INPUT"[147]  ENTER HIRES:";HI
9310 GOTO9000
9400 INPUT"[147]  ENTER COLOR 1:";D1
9410 GOTO9000
9500 INPUT"[147]  ENTER COLOR 2:";D2
9510 GOTO9000
9600 INPUT"[147]  ENTER BORDER:";D0
9610 IFD0>15THEN9600
9620 GOTO9000